home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume20 / freeze / patch03 next >
Encoding:
Text File  |  1991-06-28  |  18.7 KB  |  843 lines
  1. Newsgroups: comp.sources.misc
  2. From: Leonid A. Broukhis <leo@s514.ipmce.su>
  3. Subject:  v20i070:  Freeze/Melt compression program, Patch03
  4. Message-ID: <1991Jun27.172727.570@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: 6c078afae3add3d77e3d5449b4403aec
  6. Date: Thu, 27 Jun 1991 17:27:27 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Leonid A. Broukhis <leo@s514.ipmce.su>
  10. Posting-number: Volume 20, Issue 70
  11. Archive-name: freeze/patch03
  12. Patch-To: freeze: Volume 17, Issue 67-68
  13.  
  14. Here is the 3rd patch for Freeze/melt program (bug fixes, some
  15. compression speedup, etc.) but I think that Brad Templeton's
  16. compression program will bury my Freeze out. This patch
  17. is probably last (if no more bugs will be found).
  18.  
  19. ------------------ cut here ---------------------
  20. *** ../distribution/README    Wed Mar 27 19:44:41 1991
  21. --- README    Tue Jun 25 13:05:32 1991
  22. ***************
  23. *** 151,157 ****
  24.   
  25.   Compression rate is *INDEPENDENT* of the hash table size, but may vary
  26.   with different static Huffman tables.  It is about 2% worse than the same
  27. ! of ARJ and LHA.
  28.   
  29.   My aim is not the maximum compression, the same range is enough. :-)
  30.   
  31. --- 151,158 ----
  32.   
  33.   Compression rate is *INDEPENDENT* of the hash table size, but may vary
  34.   with different static Huffman tables.  It is about 2% worse than the same
  35. ! of ARJ 1.00 and LHA 2.05, but, unfortunately, ARJ 2.00 beats Freeze
  36. ! on 8%.
  37.   
  38.   My aim is not the maximum compression, the same range is enough. :-)
  39.   
  40. ***************
  41. *** 166,168 ****
  42. --- 167,172 ----
  43.   Encode/Decode_Char/Position), so if you want the speed and/or compression
  44.   rate `a la vogue' you may replace the low-level routines with the homebrew
  45.   (f. ex.) ones and enjoy the results.
  46. + 
  47. + (I tried to implement splay trees instead of Huffman ones and instead of
  48. + static table for position information, but this gives nothing.)
  49. *** ../distribution/bitio.c    Mon May 13 17:05:09 1991
  50. --- bitio.c    Thu Jun 13 21:15:14 1991
  51. ***************
  52. *** 6,15 ****
  53.   
  54.   short GetByte ()
  55.   {
  56. !     register u_short dx = getbuf;
  57.       register u_short c;
  58.   
  59. !     if (getlen <= 8) {
  60.           c = getchar ();
  61.           if ((short)c < 0) {
  62.   
  63. --- 6,15 ----
  64.   
  65.   short GetByte ()
  66.   {
  67. !     register u_short dx = bitbuf;
  68.       register u_short c;
  69.   
  70. !     if (bitlen <= 8) {
  71.           c = getchar ();
  72.           if ((short)c < 0) {
  73.   
  74. ***************
  75. *** 22,32 ****
  76.               corrupt_flag = 1;
  77.               c = 0;
  78.           }
  79. !         dx |= c << (8 - getlen);
  80. !         getlen += 8;
  81.       }
  82. !     getbuf = dx << 8;
  83. !     getlen -= 8;
  84.       return (dx >> 8) & 0xff;
  85.   }
  86.   
  87. --- 22,32 ----
  88.               corrupt_flag = 1;
  89.               c = 0;
  90.           }
  91. !         dx |= c << (8 - bitlen);
  92. !         bitlen += 8;
  93.       }
  94. !     bitbuf = dx << 8;
  95. !     bitlen -= 8;
  96.       return (dx >> 8) & 0xff;
  97.   }
  98.   
  99. ***************
  100. *** 36,42 ****
  101.   short GetNBits (n)
  102.       register u_short n;
  103.   {
  104. !     register u_short dx = getbuf;
  105.       register u_short c;
  106.   
  107.       static u_short mask[17] = {
  108. --- 36,42 ----
  109.   short GetNBits (n)
  110.       register u_short n;
  111.   {
  112. !     register u_short dx = bitbuf;
  113.       register u_short c;
  114.   
  115.       static u_short mask[17] = {
  116. ***************
  117. *** 50,56 ****
  118.           16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0
  119.       };
  120.   
  121. !     if (getlen <= 8)
  122.           {
  123.               c = getchar ();
  124.               if ((short)c < 0) {
  125. --- 50,56 ----
  126.           16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0
  127.       };
  128.   
  129. !     if (bitlen <= 8)
  130.           {
  131.               c = getchar ();
  132.               if ((short)c < 0) {
  133. ***************
  134. *** 59,69 ****
  135.                   corrupt_flag = 1;
  136.                   c = 0;
  137.               }
  138. !             dx |= c << (8 - getlen);
  139. !             getlen += 8;
  140.           }
  141. !     getbuf = dx << n;
  142. !     getlen -= n;
  143.       return (dx >> shift[n]) & mask[n];
  144.   }
  145.   
  146. --- 59,69 ----
  147.                   corrupt_flag = 1;
  148.                   c = 0;
  149.               }
  150. !             dx |= c << (8 - bitlen);
  151. !             bitlen += 8;
  152.           }
  153. !     bitbuf = dx << n;
  154. !     bitlen -= n;
  155.       return (dx >> shift[n]) & mask[n];
  156.   }
  157.   
  158. ***************
  159. *** 72,79 ****
  160.       register u_short l;
  161.       u_short c;
  162.   {
  163. !     register u_short len = putlen;
  164. !     register u_short b = putbuf;
  165.       b |= c >> len;
  166.       if ((len += l) >= 8) {
  167.           putchar ((int)(b >> 8));
  168. --- 72,79 ----
  169.       register u_short l;
  170.       u_short c;
  171.   {
  172. !     register u_short len = bitlen;
  173. !     register u_short b = bitbuf;
  174.       b |= c >> len;
  175.       if ((len += l) >= 8) {
  176.           putchar ((int)(b >> 8));
  177. ***************
  178. *** 89,94 ****
  179.       }
  180.       if (ferror(stdout))
  181.           writeerr();
  182. !     putbuf = b;
  183. !     putlen = len;
  184.   }
  185. --- 89,94 ----
  186.       }
  187.       if (ferror(stdout))
  188.           writeerr();
  189. !     bitbuf = b;
  190. !     bitlen = len;
  191.   }
  192. *** ../distribution/encode.c    Mon May 13 17:05:10 1991
  193. --- encode.c    Thu Jun 13 22:11:35 1991
  194. ***************
  195. *** 1,5 ****
  196.   #include "freeze.h"
  197. - 
  198.   #include "lz.h"
  199.   
  200.   /*
  201. --- 1,4 ----
  202. ***************
  203. *** 91,99 ****
  204.               if (verbose) {
  205.                   register short pos =
  206.                       (r - 1 - match_position) & (N - 1),
  207. !                 len = match_length;
  208.                   fputc('"', stderr);
  209. !                 for(;len;len--, pos++)
  210.                       fprintf(stderr, "%s",
  211.                           pr_char(text_buf[pos]));
  212.                   fprintf(stderr, "\"\n");
  213. --- 90,98 ----
  214.               if (verbose) {
  215.                   register short pos =
  216.                       (r - 1 - match_position) & (N - 1),
  217. !                 leng = match_length;
  218.                   fputc('"', stderr);
  219. !                 for(; leng; leng--, pos++)
  220.                       fprintf(stderr, "%s",
  221.                           pr_char(text_buf[pos]));
  222.                   fprintf(stderr, "\"\n");
  223. *** ../distribution/freeze.c    Mon May 13 17:05:11 1991
  224. --- freeze.c    Fri Jun  7 18:59:17 1991
  225. ***************
  226. *** 25,30 ****
  227. --- 25,31 ----
  228.    * are now separated.
  229.    * Version 2.2: Tunable static Huffman table for position information,
  230.    * this info may be given in the command string now.
  231. +  * Version 2.2.3: Bug fixes, 10% freezing speedup.
  232.    */
  233.   
  234.   #ifdef COMPAT
  235. ***************
  236. *** 510,517 ****
  237.           else if (debug == 0)    melt();
  238.           else            printcodes();
  239.   #endif /* DEBUG */
  240.           if(topipe == 0) {
  241. !         copystat(*fileptr, ofname);    /* Copy stats */
  242.           if((exit_stat == 1) || (!quiet))
  243.               putc('\n', stderr);
  244.           }
  245. --- 511,523 ----
  246.           else if (debug == 0)    melt();
  247.           else            printcodes();
  248.   #endif /* DEBUG */
  249. + 
  250. +     /* check output status, and close to make sure data is written */
  251. +         if ( ferror(stdout) || fclose(stdout) < 0 )
  252. +         writeerr();
  253. + 
  254.           if(topipe == 0) {
  255. !         copystat(*fileptr);     /* Copy stats */
  256.           if((exit_stat == 1) || (!quiet))
  257.               putc('\n', stderr);
  258.           }
  259. ***************
  260. *** 563,568 ****
  261. --- 569,575 ----
  262.       }
  263.       }
  264.       exit(exit_stat);
  265. +     /*NOTREACHED*/
  266.   }
  267.   
  268.   long in_count = 1;                  /* length of input */
  269. ***************
  270. *** 612,619 ****
  271.       exit ( 1 );
  272.   }
  273.   
  274. ! copystat(ifname, ofname)
  275. ! char *ifname, *ofname;
  276.   {
  277.   #ifdef __TURBOC__
  278.   struct ftime utimbuf;
  279. --- 619,626 ----
  280.       exit ( 1 );
  281.   }
  282.   
  283. ! copystat(ifname)
  284. ! char *ifname;
  285.   {
  286.   #ifdef __TURBOC__
  287.   struct ftime utimbuf;
  288. ***************
  289. *** 660,666 ****
  290.           perror(ofname);
  291.   
  292.   #ifndef MSDOS
  293. !     chown(ofname, statbuf.st_uid, statbuf.st_gid);    /* Copy ownership */
  294.   #endif
  295.   
  296.   #ifdef __TURBOC__
  297. --- 667,674 ----
  298.           perror(ofname);
  299.   
  300.   #ifndef MSDOS
  301. !     /* Copy ownership */
  302. !     chown(ofname, (int) statbuf.st_uid, (int) statbuf.st_gid);
  303.   #endif
  304.   
  305.   #ifdef __TURBOC__
  306. *** ../distribution/huf.c    Mon May 13 18:54:10 1991
  307. --- huf.c    Thu Jun 13 21:15:14 1991
  308. ***************
  309. *** 7,20 ****
  310.   /*                                    */
  311.   /*----------------------------------------------------------------------*/
  312.   
  313. - #ifdef COMPAT
  314. - #undef  N
  315. - #undef  F
  316. - #define F               (new_flg ? _F : _FO)
  317. - #define N               (new_flg ? _NN : _NO)
  318. - #endif
  319. - 
  320. - 
  321.   /* TABLE OF ENCODE/DECODE for upper 6 bits position information */
  322.   
  323.   /* The contents of this table are used for freezing only, so we use
  324. --- 7,12 ----
  325. ***************
  326. *** 40,53 ****
  327.   
  328.   short son[_T];           /* points to son node (son[i],son[i+]) */
  329.   
  330. ! u_short getbuf = 0;
  331. ! uchar    getlen = 0;
  332.   
  333.   uchar corrupt_flag = 0;         /* If a file is corrupt, use fcat */
  334.   
  335. - u_short putbuf = 0;
  336. - uchar putlen = 0;
  337. - 
  338.   /* Initialize tree */
  339.   
  340.   StartHuff ()
  341. --- 32,42 ----
  342.   
  343.   short son[_T];           /* points to son node (son[i],son[i+]) */
  344.   
  345. ! u_short bitbuf = 0;
  346. ! uchar    bitlen = 0;
  347.   
  348.   uchar corrupt_flag = 0;         /* If a file is corrupt, use fcat */
  349.   
  350.   /* Initialize tree */
  351.   
  352.   StartHuff ()
  353. ***************
  354. *** 80,87 ****
  355.   #ifdef DEBUG
  356.       symbols_out = refers_out = 0;
  357.   #endif
  358. !     putlen = getlen = 0;
  359. !     putbuf = getbuf = 0;
  360.       corrupt_flag = 0;
  361.   }
  362.   
  363. --- 69,76 ----
  364.   #ifdef DEBUG
  365.       symbols_out = refers_out = 0;
  366.   #endif
  367. !     bitlen = 0;
  368. !     bitbuf = 0;
  369.       corrupt_flag = 0;
  370.   }
  371.   
  372. ***************
  373. *** 218,225 ****
  374.   
  375.   EncodeEnd ()
  376.   {
  377. !     if (putlen) {
  378. !         putchar((int)(putbuf >> 8));
  379.           bytes_out++;
  380.           if (ferror(stdout))
  381.               writeerr();
  382. --- 207,214 ----
  383.   
  384.   EncodeEnd ()
  385.   {
  386. !     if (bitlen) {
  387. !         putchar((int)(bitbuf >> 8));
  388.           bytes_out++;
  389.           if (ferror(stdout))
  390.               writeerr();
  391. ***************
  392. *** 228,243 ****
  393.   
  394.   short DecodeChar ()
  395.   {
  396. !     register u_short c;
  397. !     register u_short dx;
  398. !     register u_short cc;
  399.       c = son[_R];
  400.   
  401.       /* trace from root to leaf,
  402.          got bit is 0 to small(son[]), 1 to large (son[]+1) son node */
  403.       while (c < _T) {
  404. !         dx = getbuf;
  405. !         if (getlen <= 8) {
  406.               if ((short)(cc = getchar()) < 0) {
  407.                   if (corrupt_flag) {
  408.                       corrupt_message();
  409. --- 217,230 ----
  410.   
  411.   short DecodeChar ()
  412.   {
  413. !     register u_short c, cc, dx;
  414.       c = son[_R];
  415.   
  416.       /* trace from root to leaf,
  417.          got bit is 0 to small(son[]), 1 to large (son[]+1) son node */
  418.       while (c < _T) {
  419. !         dx = bitbuf;
  420. !         if (bitlen <= 8) {
  421.               if ((short)(cc = getchar()) < 0) {
  422.                   if (corrupt_flag) {
  423.                       corrupt_message();
  424. ***************
  425. *** 246,256 ****
  426.                   corrupt_flag = 1;
  427.                   cc = 0;
  428.               }
  429. !             dx |= cc << (8 - getlen);
  430. !             getlen += 8;
  431.           }
  432. !         getbuf = dx << 1;
  433. !         getlen--;
  434.           c += (dx >> 15) & 1;
  435.           c = son[c];
  436.       }
  437. --- 233,243 ----
  438.                   corrupt_flag = 1;
  439.                   cc = 0;
  440.               }
  441. !             dx |= cc << (8 - bitlen);
  442. !             bitlen += 8;
  443.           }
  444. !         bitbuf = dx << 1;
  445. !         bitlen--;
  446.           c += (dx >> 15) & 1;
  447.           c = son[c];
  448.       }
  449. ***************
  450. *** 321,328 ****
  451.       /* trace from root to leaf,
  452.          got bit is 0 to small(son[]), 1 to large (son[]+1) son node */
  453.       while (c < _TO) {
  454. !         dx = getbuf;
  455. !         if (getlen <= 8) {
  456.               if ((short)(cc = getchar()) < 0) {
  457.                   if (corrupt_flag) {
  458.                       corrupt_message();
  459. --- 308,315 ----
  460.       /* trace from root to leaf,
  461.          got bit is 0 to small(son[]), 1 to large (son[]+1) son node */
  462.       while (c < _TO) {
  463. !         dx = bitbuf;
  464. !         if (bitlen <= 8) {
  465.               if ((short)(cc = getchar()) < 0) {
  466.                   if (corrupt_flag) {
  467.                       corrupt_message();
  468. ***************
  469. *** 331,341 ****
  470.                   corrupt_flag = 1;
  471.                   cc = 0;
  472.               }
  473. !             dx |= cc << (8 - getlen);
  474. !             getlen += 8;
  475.           }
  476. !         getbuf = dx << 1;
  477. !         getlen--;
  478.           c += (dx >> 15) & 1;
  479.           c = son[c];
  480.       }
  481. --- 318,328 ----
  482.                   corrupt_flag = 1;
  483.                   cc = 0;
  484.               }
  485. !             dx |= cc << (8 - bitlen);
  486. !             bitlen += 8;
  487.           }
  488. !         bitbuf = dx << 1;
  489. !         bitlen--;
  490.           c += (dx >> 15) & 1;
  491.           c = son[c];
  492.       }
  493. *** ../distribution/huf.h    Wed Mar 27 19:45:04 1991
  494. --- huf.h    Thu Jun 13 21:15:15 1991
  495. ***************
  496. *** 1,9 ****
  497. ! extern u_short getbuf;
  498. ! extern uchar    getlen;
  499.   
  500.   extern uchar corrupt_flag;
  501. - 
  502. - extern u_short putbuf;
  503. - extern uchar putlen;
  504.   
  505.   #define MAX_FREQ        (u_short)0x8000 /* tree update timing from frequency */
  506. --- 1,6 ----
  507. ! extern u_short bitbuf;
  508. ! extern uchar    bitlen;
  509.   
  510.   extern uchar corrupt_flag;
  511.   
  512.   #define MAX_FREQ        (u_short)0x8000 /* tree update timing from frequency */
  513. *** ../distribution/lz.c    Mon May 13 15:12:09 1991
  514. --- lz.c    Fri Jun  7 18:48:53 1991
  515. ***************
  516. *** 18,28 ****
  517.   hash_t             prev[N + 1];
  518.   
  519.   #ifndef __XENIX__
  520. - u_short
  521.   #ifdef __TURBOC__
  522. !     huge
  523. ! #endif
  524. !         next[array_size];
  525.   #else
  526.   #if parts == 2
  527.   u_short next0[32768], next1[8193];
  528. --- 18,28 ----
  529.   hash_t             prev[N + 1];
  530.   
  531.   #ifndef __XENIX__
  532.   #ifdef __TURBOC__
  533. ! u_short huge * next = (u_short huge *) NULL;
  534. ! #else
  535. ! u_short next[array_size];
  536. ! #endif /* TURBOC */
  537.   #else
  538.   #if parts == 2
  539.   u_short next0[32768], next1[8193];
  540. ***************
  541. *** 66,71 ****
  542. --- 66,80 ----
  543.       node_steps = node_matches = 0;
  544.   #endif
  545.   
  546. + #ifdef __TURBOC__
  547. +     if (!next && (next = (u_short huge *)
  548. +             farmalloc(array_size * sizeof(u_short))) == NULL) {
  549. +         fprintf(stderr, "Not enough memory (%dK wanted)\n",
  550. +             array_size * sizeof(u_short) / 1024);
  551. +         exit(3);
  552. +     }
  553. + #endif
  554. + 
  555.       for (i = N + 1; i < array_size; i++ )
  556.           nextof(i) = NIL;
  557.       for (i = 0; i < sizeof(prev)/sizeof(*prev); i++ )
  558. ***************
  559. *** 76,119 ****
  560.   Get_Next_Match (r)
  561.       u_short r;
  562.   {
  563. !     register uchar  *key;
  564. !     register u_short        m, i, p;
  565.   #ifdef GATHER_STAT
  566.       node_matches++;
  567.   #endif
  568. -     key = &text_buf[p = r];
  569. -     m = 0;
  570. -     while (m < _F) {
  571. -         if ((p = nextof(p)) == NIL) {
  572. -             match_length = m;
  573. -             return;
  574. -         }
  575.   
  576. ! /* This statement is due to ideas of Boyer and Moore: */
  577.   
  578. !         if(key[m] != text_buf[p + m])
  579. !             continue;
  580.   
  581. ! /* This statement is due to my ideas: :-) */
  582. ! /* It gives up to 8% speedup on files with big redundancy (text, etc.) */
  583.   
  584. !         if(key[m >> 1] != text_buf[p + (m >> 1)])
  585. !             continue;
  586.   
  587.   #ifdef GATHER_STAT
  588.           node_steps++;
  589.   #endif
  590.   
  591. ! /* This statement doesn't take a lot of execution time -
  592. !     about 20% (in profiling we trust)
  593. ! */
  594. !         for (i = 0; i < _F && key[i] == text_buf[p + i];  i++);
  595. ! 
  596. !         if (i > m) {
  597. !             match_position = ((r - p) & (N - 1)) - 1;
  598. !             m = i;
  599. !         }
  600. !     }
  601.   #ifdef DEBUG
  602.       if (verbose)
  603.           fprintf(stderr, "Replacing node: %d -> %d\n", p, r);
  604. --- 85,121 ----
  605.   Get_Next_Match (r)
  606.       u_short r;
  607.   {
  608. !     register u_short p = r;
  609. !     register int m;
  610. !     register uchar  *key = text_buf + r, *pattern;
  611.   #ifdef GATHER_STAT
  612.       node_matches++;
  613.   #endif
  614.   
  615. !     match_length = 0;
  616. !     do {
  617. !         do {
  618. !             if ((p = nextof(p)) == NIL)
  619. !                 return;
  620. !             pattern = text_buf + p;
  621.   
  622. ! /* This statement is due to ideas of Boyer and Moore: */
  623.   
  624. !             for (m = match_length;
  625. !                 m >= 0 && key[m] == pattern[m]; m--);
  626.   
  627. !         } while (m >= 0);
  628.   
  629.   #ifdef GATHER_STAT
  630.           node_steps++;
  631.   #endif
  632.   
  633. !         for (m = match_length;
  634. !             ++m < _F && key[m] == pattern[m]; );
  635. ! 
  636. !         match_length = m;
  637. !         match_position = ((r - p) & (N - 1)) - 1;
  638. !     } while (m < _F);
  639.   #ifdef DEBUG
  640.       if (verbose)
  641.           fprintf(stderr, "Replacing node: %d -> %d\n", p, r);
  642. ***************
  643. *** 121,125 ****
  644.       nextof(prev[p]) = nextof(p);
  645.       prev[nextof(p)] = prev[p];
  646.       prev[p] = NIL;  /* remove p, it is further than r */
  647. -     match_length = _F;
  648.   }
  649. --- 123,126 ----
  650. *** ../distribution/lz.h    Mon May 13 17:05:12 1991
  651. --- lz.h    Tue Jun 25 12:40:25 1991
  652. ***************
  653. *** 36,46 ****
  654.   
  655.   #ifndef __XENIX__
  656.   #define nextof(i)       next[i]
  657. - extern u_short
  658.   #ifdef __TURBOC__
  659. !         huge
  660. ! #endif
  661. !             next[];
  662.   #else
  663.   #define parts (array_size/32768 + 1)
  664.   #define nextof(i)       next[(i) >> 15][(i) & 0x7fff]
  665. --- 36,46 ----
  666.   
  667.   #ifndef __XENIX__
  668.   #define nextof(i)       next[i]
  669.   #ifdef __TURBOC__
  670. ! extern u_short huge * next;
  671. ! #else
  672. ! extern u_short next[];
  673. ! #endif /* TURBOC */
  674.   #else
  675.   #define parts (array_size/32768 + 1)
  676.   #define nextof(i)       next[(i) >> 15][(i) & 0x7fff]
  677. *** ../distribution/makefile    Mon May 13 17:05:13 1991
  678. --- makefile    Tue Jun 25 12:26:33 1991
  679. ***************
  680. *** 1,3 ****
  681. --- 1,4 ----
  682. + SHELL         = /bin/sh
  683.   DEST          = /usr/local/bin
  684.   MANDEST       = /usr/local/man/cat1
  685.   EXTHDRS          =
  686. ***************
  687. *** 9,15 ****
  688.   
  689.   CC            = gcc 
  690.   
  691. ! CFLAGS        = -DBITS=18 -O -DCOMPAT -fstrength-reduce #-DBSD42 -DSUN4
  692.   
  693.   LINTFLAGS     = -DBITS=15 -DCOMPAT -DDEBUG -DGATHER_STAT -x
  694.   
  695. --- 10,16 ----
  696.   
  697.   CC            = gcc 
  698.   
  699. ! CFLAGS        = -DBITS=18 -O -fstrength-reduce #-DBSD42 -DSUN4
  700.   
  701.   LINTFLAGS     = -DBITS=15 -DCOMPAT -DDEBUG -DGATHER_STAT -x
  702.   
  703. ***************
  704. *** 42,48 ****
  705.   all:            $(PROGRAM) statist $(CATMAN)
  706.   
  707.   lint:           $(SRCS)
  708. !         lint $(LINTFLAGS) $(SRCS) $(LIBS)
  709.   
  710.   $(PROGRAM):     $(OBJS) 
  711.           $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) $(LIBS) -o $(PROGRAM)
  712. --- 43,49 ----
  713.   all:            $(PROGRAM) statist $(CATMAN)
  714.   
  715.   lint:           $(SRCS)
  716. !         lint $(LINTFLAGS) $(SRCS) > lint.out
  717.   
  718.   $(PROGRAM):     $(OBJS) 
  719.           $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) $(LIBS) -o $(PROGRAM)
  720. ***************
  721. *** 50,58 ****
  722.   statist: statist.c freeze.h lz.h huf.h
  723.           $(CC) $(CFLAGS) -UCOMPAT $(LDFLAGS) -o statist statist.c $(LIBS)
  724.   
  725. ! clean:;         rm -f *.o *.b .,* core a.out $(PROGRAM) statist
  726.   
  727.   install:        $(DEST)/$(PROGRAM) $(MANDEST)/$(MAN)
  728.   
  729.   $(DEST)/$(PROGRAM): $(PROGRAM)
  730.           install -s -c $(PROGRAM) $(DEST)
  731. --- 51,64 ----
  732.   statist: statist.c freeze.h lz.h huf.h
  733.           $(CC) $(CFLAGS) -UCOMPAT $(LDFLAGS) -o statist statist.c $(LIBS)
  734.   
  735. ! clean:;         rm -f *.o *.b .,* core *.out $(PROGRAM) statist
  736.   
  737.   install:        $(DEST)/$(PROGRAM) $(MANDEST)/$(MAN)
  738. + 
  739. + patch:;         rm -f patch.out
  740. +         -for i in ../distribution/* ; do \
  741. +         (diff -c $$i `basename $$i` >> patch.out); \
  742. +         done
  743.   
  744.   $(DEST)/$(PROGRAM): $(PROGRAM)
  745.           install -s -c $(PROGRAM) $(DEST)
  746. *** ../distribution/patchlevel.h    Mon May 13 17:05:13 1991
  747. --- patchlevel.h    Tue Jun  4 20:12:31 1991
  748. ***************
  749. *** 1 ****
  750. ! #define PATCHLEVEL 2
  751. --- 1 ----
  752. ! #define PATCHLEVEL 3
  753. *** ../distribution/statist.c    Mon May 13 15:12:12 1991
  754. --- statist.c    Tue May 14 21:18:45 1991
  755. ***************
  756. *** 69,78 ****
  757.   #endif
  758.   giveres() {
  759.       u_short c;
  760.       signal(SIGINT, giveres);
  761.       for(c = 0; c < 62; c++) {
  762.           register short *p;
  763. -         register int j, k;
  764.   
  765.           j = 0;
  766.           p = prnt;
  767. --- 69,78 ----
  768.   #endif
  769.   giveres() {
  770.       u_short c;
  771. +     register int j, k;
  772.       signal(SIGINT, giveres);
  773.       for(c = 0; c < 62; c++) {
  774.           register short *p;
  775.   
  776.           j = 0;
  777.           p = prnt;
  778. ***************
  779. *** 79,92 ****
  780.           k = p[c + T];
  781.   
  782.           do j++; while ((k = p[k]) != R) ;
  783. !         if (j <= 8)
  784.               bits[j]++;
  785.       }
  786. !     printf("%d %d %d %d %d %d %d %d\n",
  787. !         bits[1], bits[2], bits[3], bits[4],
  788. !         bits[5], bits[6], bits[7], bits[8]);
  789.       fflush(stdout);
  790. !     for (c = 1; c <= 8; c++) bits[c] = 0;
  791.   }
  792.   
  793.   freeze ()
  794. --- 79,114 ----
  795.           k = p[c + T];
  796.   
  797.           do j++; while ((k = p[k]) != R) ;
  798. !         if (j <= 6)
  799.               bits[j]++;
  800.       }
  801. ! 
  802. !     k = bits[1] + bits[2] + bits[3] + bits[4] +
  803. !     bits[5] + bits[6];
  804. ! 
  805. !     k = 62 - k;     /* free variable length codes for 7 & 8 bits */
  806. ! 
  807. !     j = 128 * bits[1] + 64 * bits[2] + 32 * bits[3] +
  808. !     16 * bits[4] + 8 * bits[5] + 4 * bits[6];
  809. ! 
  810. !     j = 256 - j;    /* free byte images for these codes */
  811. ! 
  812. ! /*      Equation:
  813. !         bits[7] + bits[8] = k
  814. !     2 * bits[7] + bits[8] = j
  815. ! */
  816. !     j -= k;
  817. !     if (j < 0 || k < j) {
  818. !         printf("Not enough information\n");
  819. !     } else {
  820. !         bits[7] = j;
  821. !         bits[8] = k - j;
  822. !         printf("%d %d %d %d %d %d %d %d\n",
  823. !             bits[1], bits[2], bits[3], bits[4],
  824. !             bits[5], bits[6], bits[7], bits[8]);
  825. !     }
  826.       fflush(stdout);
  827. !     for (c = 1; c <= 6; c++) bits[c] = 0;
  828.   }
  829.   
  830.   freeze ()
  831. ------------------ cut here ---------------------
  832. -- 
  833. Leonid A. Broukhis | 89-1-95 Liberty St. | "BROUKHIS" is Hebrew for
  834. 7+095 494.6241 (h) | Moscow 123481 USSR  |       "BENEDICTAE"
  835. 7+095 132.9475 (o) | (leo@s514.ipmce.su) | {Licet omnia qualibet dicas}
  836.  
  837. exit 0 # Just in case...
  838. -- 
  839. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  840. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  841. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  842. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  843.